function labelpareto(p, i, l)
%LABELPARETO

h = plot3(p(i, 1), p(i, 2), p(i, 3), 'k.');
set(h, 'MarkerSize', 25);

for j = 1:length(i)
  h = text(p(i(j), 1), p(i(j), 2), p(i(j), 3), l{j});
  set(h, 'FontWeight', 'bold');
  set(h, 'FontSize', 18);
  set(h, 'Color', 'white');
end

